home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / FRY MSO2K OTL TrayIcon.xpl < prev    next >
Encoding:
XSetup plugin  |  2002-12-19  |  1.3 KB  |  44 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office 2000\Outlook 2000"
  5. "NAME"="Minimize to Tray"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Display Outlook minimized in the tray"
  8. "DESCRIPTION 1"="Normally, when Outlook is minimized, it minimizes to the taskbar."
  9. "DESCRIPTION 2"="If this option is activated, Outlook minimizes to the tray (the area where the clock is located, bottom-right)."
  10. "DESCRIPTION 3"="For users that always use Outlook this can save some clutter in the taskbar."
  11. "VERSION"="1.01"
  12. "AUTHOR"="Franky"
  13. "COPYRIGHT"="Copyright ⌐ 2002"
  14.  
  15. 'Declaration of some constants
  16. sPath="HKCU\Software\Microsoft\Office\9.0\Outlook\Preferences\MinToTray"
  17.  
  18. 'Called when the Plugin is started
  19. SUB Plugin_Initialize
  20.  RegVal=RegReadValue(sPath)
  21.  if RegVal = 1 then
  22.   Call SetUIElement(1,true)
  23.  else
  24.   Call SetUIElement(1,false)
  25.  end if
  26. END SUB
  27.  
  28. 'Called when the Plugin should validate the Data the user has entered
  29. SUB Plugin_CheckData(ElementIndex)
  30. END SUB
  31.  
  32. 'Called when the Plugin should apply the changes
  33. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  if GetUIElement(1) then
  35.   Call RegWriteValue(sPath,1,2)
  36.  else
  37.   Call RegWriteValue(sPath,0,2)
  38.  end if
  39. END SUB
  40.  
  41. 'Called when the Plugin is about to be removed from memory
  42. SUB Plugin_Terminate
  43. END SUB
  44.